unit uniCadProduto;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uniCadPadrao, DB, ADODB, ExtCtrls, Buttons, StdCtrls, Mask,
  DBCtrls, Grids, DBGrids;

type
  TfrmCadProduto = class(TfrmCadPadrao)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    DBText1: TDBText;
    DBEdit2: TDBEdit;
    GroupBox4: TGroupBox;
    btnRemovProdutoMaterial: TSpeedButton;
    btnAddProdutoMaterial: TSpeedButton;
    DBGrid1: TDBGrid;
    Label17: TLabel;
    QR_TamanhoProduto: TADOQuery;
    DS_TamanhoProduto: TDataSource;
    Edit1: TEdit;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    procedure DBEdit2Enter(Sender: TObject);
    procedure DBEdit2Exit(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnAddProdutoMaterialClick(Sender: TObject);
    procedure btnRemovProdutoMaterialClick(Sender: TObject);
  private
    procedure p_Select;
  public
    { Public declarations }
  end;

var
  frmCadProduto: TfrmCadProduto;

implementation

uses uniFuncBD, UniFuncoes;

{$R *.dfm}

{ TfrmCadProduto }


procedure TfrmCadProduto.p_Select;
var sSQL : String;
begin
  sSQL := ' SELECT * FROM TB_PRODUTO WHERE 1=1';
  if sCdCampo <> '' then
    sSQL := sSQL + ' AND cd_produto LIKE '+QuotedStr(sCdCampo);
  QR_Padrao.Close;
  QR_Padrao.SQL.Clear;
  QR_Padrao.SQL.Add(sSQL);
  QR_Padrao.Open;
  QR_Padrao.First;

  QR_TamanhoProduto.Close;
  QR_TamanhoProduto.SQL.Text := 'SELECT * FROM TB_TAMANHO_PRODUTO WHERE CD_PRODUTO = '+sCdCampo;
  QR_TamanhoProduto.Open;
end;

procedure TfrmCadProduto.DBEdit2Enter(Sender: TObject);
begin
  inherited;
  setCorEnter(Sender);
end;

procedure TfrmCadProduto.DBEdit2Exit(Sender: TObject);
begin
  inherited;
  setCorExit(Sender);
end;

procedure TfrmCadProduto.FormShow(Sender: TObject);
begin   
  p_Select;    
  inherited;
end;

procedure TfrmCadProduto.btnAddProdutoMaterialClick(Sender: TObject);
begin
 if Edit1.Text <> '' then
  begin
    QR_TamanhoProduto.Append;
    QR_TamanhoProduto.FieldByName('CD_PRODUTO').AsSTring := sCdCampo;
    QR_TamanhoProduto.FieldByName('DS_TAMANHO').AsString := Edit1.Text;
    QR_TamanhoProduto.Post;
    Edit1.Text := '';
  end;
  Edit1.SetFocus;
end;

procedure TfrmCadProduto.btnRemovProdutoMaterialClick(Sender: TObject);
begin
  QR_TamanhoProduto.Delete;
end;

end.
